program Console;

uses
  Vcl.Forms,
  Winapi.Windows,
  uMainForm in 'uMainForm.pas' {MainForm},
  uOnHttpHandle in 'Net\uOnHttpHandle.pas',
  uConsoleSetting in 'uConsoleSetting.pas',
  VMProtectSDK in '..\Common\VMProtectSDK.pas',
  uCommon in '..\Common\uCommon.pas',
  uHttpHandleBase in 'Net\uHttpHandleBase.pas',
  uFormListView in 'Custom\HttpHandle\uFormListView.pas',
  uConsoleConfig in 'uConsoleConfig.pas';

{$R *.res}

var
  MutexHandle:Cardinal;
begin
  VMProtectBegin('Main');
  MutexHandle:= CreateMutex(nil,True,Pchar(C_SETTING_CONSOLE_MUTEX_NAME));
  if MutexHandle <> 0 then
    begin
      if GetLastError <> ERROR_ALREADY_EXISTS then
        begin
          Application.Initialize;
          Application.MainFormOnTaskbar := True;
          AApplication.CreateForm(TMainForm, MainForm);
  pplication.Run;
        end
      else
        MessageBox(0, Pchar(S_CONSOLE_BE_READLY),Pchar(S_WRONG),0);
    end;
  VMProtectEnd;
end.
